home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / workbench / directoryopus4 / dopus4_src / library / graphics.a < prev    next >
Text File  |  2000-03-11  |  7KB  |  436 lines
  1. ; Directory Opus 4
  2. ; Original GPL release version 4.12
  3. ; Copyright 1993-2000 Jonathan Potter
  4. ; 
  5. ; This program is free software; you can redistribute it and/or
  6. ; modify it under the terms of the GNU General Public License
  7. ; as published by the Free Software Foundation; either version 2
  8. ; of the License, or (at your option) any later version.
  9. ; 
  10. ; This program is distributed in the hope that it will be useful,
  11. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ; GNU General Public License for more details.
  14. ; 
  15. ; You should have received a copy of the GNU General Public License
  16. ; along with this program; if not, write to the Free Software
  17. ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18. ; 
  19. ; All users of Directory Opus 4 (including versions distributed
  20. ; under the GPL) are entitled to upgrade to the latest version of
  21. ; Directory Opus version 5 at a reduced price. Please see
  22. ; http://www.gpsoft.com.au for more information.
  23. ; 
  24. ; The release of Directory Opus 4 under the GPL in NO WAY affects
  25. ; the existing commercial status of Directory Opus 5.
  26.  
  27.  
  28.     SECTION    code
  29.  
  30.     INCLUDE "asmsupp.i"
  31.     INCLUDE "dopusbase.i"
  32.  
  33.     XDEF Do3DBox
  34.     XDEF Do3DStringBox
  35.     XDEF Do3DCycleBox
  36.     XDEF DrawCheckMark
  37.     XDEF HiliteGad
  38.     
  39. Do3DBox:
  40.     movem.l a2-a4/a6/d2-d7,-(sp)
  41.  
  42.     move.l db_GfxBase(a6),a6
  43.     move.l a0,a2
  44.     move.l d0,d6
  45.     move.l d1,d7
  46.  
  47.     move.l a2,a1
  48.     move.l d4,d0
  49.     jsr _LVOSetAPen(a6)
  50.  
  51.     move.l a2,a1
  52.     move.l d6,d0
  53.     subq.l #2,d0
  54.     move.l d0,a3
  55.     move.l d7,d1
  56.     subq.l #1,d1
  57.     move.l d1,a4
  58.     jsr _LVOMove(a6)
  59.  
  60.     move.l a2,a1
  61.     move.l d6,d0
  62.     add.l d2,d0
  63.     move.l a4,d1
  64.     jsr _LVODraw(a6)
  65.  
  66.     move.l a2,a1
  67.     move.l a3,d0
  68.     move.l a4,d1
  69.     jsr _LVOMove(a6)
  70.  
  71.     move.l a2,a1
  72.     move.l a3,d0
  73.     move.l d7,d1
  74.     add.l d3,d1
  75.     jsr _LVODraw(a6)
  76.  
  77.     move.l a2,a1
  78.     move.l d6,d0
  79.     subq.l #1,d0
  80.     move.l d0,a3
  81.     move.l a4,d1
  82.     jsr _LVOMove(a6)
  83.  
  84.     move.l a2,a1
  85.     move.l a3,d0
  86.     move.l d7,d1
  87.     add.l d3,d1
  88.     move.l d1,a4
  89.     subq.l #1,d1
  90.     jsr _LVODraw(a6)
  91.  
  92.     move.l a2,a1
  93.     move.l d5,d0
  94.     jsr _LVOSetAPen(a6)
  95.  
  96.     move.l a2,a1
  97.     move.l a3,d0
  98.     move.l a4,d1
  99.     jsr _LVOMove(a6)
  100.  
  101.     move.l a2,a1    
  102.     move.l d6,d0
  103.     add.l d2,d0
  104.     move.l d0,a3
  105.     addq.l #1,d0
  106.     move.l a4,d1
  107.     jsr _LVODraw(a6)
  108.  
  109.     move.l a2,a1
  110.     move.l a3,d0
  111.     addq.l #1,d0
  112.     move.l d7,d1
  113.     subq.l #1,d1
  114.     jsr _LVODraw(a6)
  115.  
  116.     move.l a2,a1
  117.     move.l a3,d0
  118.     move.l a4,d1
  119.     jsr _LVOMove(a6)
  120.  
  121.     move.l a2,a1
  122.     move.l a3,d0
  123.     move.l d7,d1
  124.     jsr _LVODraw(a6)
  125.  
  126.     movem.l (sp)+,a2-a4/a6/d2-d7
  127.     rts
  128.  
  129. Do3DStringBox:
  130.     movem.l a0/d0-d3,-(sp)
  131.     subq.l #2,d0
  132.     subq.l #1,d1
  133.     addq.l #4,d2
  134.     addq.l #2,d3
  135.     bsr Do3DBox
  136.     movem.l (sp)+,a0/d0-d3
  137.  
  138.     movem.l a2-a4/a6/d2-d7,-(sp)
  139.  
  140.     move.l db_GfxBase(a6),a6
  141.     move.l a0,a2
  142.     move.l d0,d6
  143.     move.l d1,d7
  144.  
  145.     move.l a2,a1
  146.     move.l d5,d0
  147.     jsr _LVOSetAPen(a6)
  148.  
  149.     move.l a2,a1
  150.     move.l d6,d0
  151.     subq.l #2,d0
  152.     move.l d0,a3
  153.     move.l d7,d1
  154.     subq.l #1,d1
  155.     move.l d1,a4
  156.     jsr _LVOMove(a6)
  157.  
  158.     move.l a2,a1
  159.     move.l d6,d0
  160.     add.l d2,d0
  161.     addq.l #1,d0
  162.     move.l a4,d1
  163.     jsr _LVODraw(a6)
  164.  
  165.     move.l a2,a1
  166.     move.l a3,d0
  167.     move.l a4,d1
  168.     jsr _LVOMove(a6)
  169.  
  170.     move.l a2,a1
  171.     move.l a3,d0
  172.     move.l d7,d1
  173.     add.l d3,d1
  174.     addq.l #1,d1
  175.     jsr _LVODraw(a6)
  176.  
  177.     move.l a2,a1
  178.     move.l d6,d0
  179.     subq.l #1,d0
  180.     move.l d0,a3
  181.     move.l a4,d1
  182.     jsr _LVOMove(a6)
  183.  
  184.     move.l a2,a1
  185.     move.l a3,d0
  186.     move.l d7,d1
  187.     add.l d3,d1
  188.     move.l d1,a4
  189.     subq.l #1,d1
  190.     jsr _LVODraw(a6)
  191.  
  192.     move.l a2,a1
  193.     move.l d4,d0
  194.     jsr _LVOSetAPen(a6)
  195.  
  196.     move.l a2,a1
  197.     move.l a3,d0
  198.     move.l a4,d1
  199.     jsr _LVOMove(a6)
  200.  
  201.     move.l a2,a1
  202.     move.l d6,d0
  203.     add.l d2,d0
  204.     addq.l #1,d0
  205.     move.l d0,a3
  206.     move.l a4,d1
  207.     jsr _LVODraw(a6)
  208.  
  209.     move.l a2,a1
  210.     move.l a3,d0
  211.     move.l d7,d1
  212.     subq.l #1,d1
  213.     jsr _LVODraw(a6)
  214.  
  215.     move.l a2,a1
  216.     sub.l #1,a3
  217.     move.l a3,d0
  218.     move.l a4,d1
  219.     jsr _LVOMove(a6)
  220.  
  221.     move.l a2,a1
  222.     move.l a3,d0
  223.     move.l d7,d1
  224.     jsr _LVODraw(a6)
  225.  
  226.     movem.l (sp)+,a2-a4/a6/d2-d7
  227.     rts
  228.  
  229. Do3DCycleBox:
  230.     movem.l a0/d0/d1,-(sp)
  231.     bsr Do3DBox
  232.     movem.l (sp)+,a0/d0/d1
  233.  
  234.     movem.l a2-a6/d2-d7,-(sp)
  235.  
  236.     move.l a6,a5
  237.     move.l db_GfxBase(a6),a6
  238.     move.l a0,a2
  239.     move.l d0,d6
  240.     move.l d1,d7
  241.  
  242.     move.l a2,a1
  243.     move.l d5,d0
  244.     jsr _LVOSetAPen(a6)
  245.  
  246.     move.l a2,a1
  247.     moveq.l #0,d0
  248.     move.b 28(a1),d0
  249.     move.l d0,-(sp)
  250.     moveq.l #0,d0
  251.     jsr _LVOSetDrMd(a6)
  252.  
  253.     movem.l d0-d5,-(sp)
  254.     move.l pdb_cycletop(a5),d0
  255.     tst.l d0
  256.     beq.s nocycletopdraw
  257.     move.l d0,a0
  258.     move.l d6,d2
  259.     addq.l #4,d2
  260.     move.l d3,a3
  261.     move.l d7,d3
  262.     addq.l #1,d3
  263.     sub.l #12,a3
  264.     add.l d3,a3
  265.     add.l #7,a3
  266.     moveq.l #0,d0
  267.     moveq.l #2,d1
  268.     move.l a2,a1
  269.     moveq.l #11,d4
  270.     moveq.l #6,d5
  271.     jsr _LVOBltTemplate(a6)
  272.  
  273. nocycletopdraw:
  274.     move.l pdb_cyclebot(a5),d0
  275.     tst.l d0
  276.     beq.s nocyclebotdraw
  277.     move.l d0,a0
  278.     moveq.l #0,d0
  279.     moveq.l #2,d1
  280.     move.l a2,a1
  281.     move.l a3,d3
  282.     moveq.l #2,d5
  283.     jsr _LVOBltTemplate(a6)
  284. nocyclebotdraw:
  285.     movem.l (sp)+,d0-d5
  286.  
  287.     move.l a2,a1
  288.     move.l d6,d0
  289.     addq.l #4,d0
  290.     move.l d0,a3
  291.     move.l d7,d1
  292.     addq.l #7,d1
  293.     move.l d1,a4
  294.     jsr _LVOMove(a6)
  295.  
  296.     move.l a2,a1
  297.     move.l a3,d0
  298.     move.l a4,d1
  299.     move.l d3,a5
  300.     sub.l #12,a5
  301.     add.l a5,d1
  302.     jsr _LVODraw(a6)
  303.  
  304.     move.l a2,a1
  305.     move.l d6,d0
  306.     addq.l #5,d0
  307.     move.l d0,a3
  308.     move.l a4,d1
  309.     jsr _LVOMove(a6)
  310.  
  311.     move.l a2,a1
  312.     move.l a3,d0
  313.     move.l a4,d1
  314.     add.l a5,d1
  315.     jsr _LVODraw(a6)
  316.  
  317.     move.l a2,a1
  318.     move.l d6,d0
  319.     add.l #18,d0
  320.     move.l d0,a3
  321.     move.l d7,d1
  322.     addq.l #1,d1
  323.     move.l d1,a4
  324.     jsr _LVOMove(a6)
  325.  
  326.     move.l a2,a1
  327.     move.l a3,d0
  328.     move.l d7,d1
  329.     move.l d3,a5
  330.     sub.l #2,a5
  331.     add.l a5,d1
  332.     jsr _LVODraw(a6)
  333.  
  334.     move.l a2,a1
  335.     move.l d4,d0
  336.     jsr _LVOSetAPen(a6)
  337.  
  338.     move.l a2,a1
  339.     move.l d6,d0
  340.     add.l #19,d0
  341.     move.l d0,a3
  342.     move.l a4,d1
  343.     jsr _LVOMove(a6)
  344.  
  345.     move.l a2,a1
  346.     move.l a3,d0
  347.     move.l d7,d1
  348.     add.l a5,d1
  349.     jsr _LVODraw(a6)
  350.  
  351.     move.l a2,a1
  352.     move.l (sp)+,d0
  353.     jsr _LVOSetDrMd(a6)
  354.  
  355.     movem.l (sp)+,a2-a6/d2-d7
  356.     rts
  357.  
  358. DrawCheckMark:
  359.     movem.l a2/a5/a6/d2-d7,-(sp)
  360.     move.l d2,d6
  361.     move.l a6,a5
  362.  
  363.     move.l a0,a2
  364.     move.l a2,a1
  365.     move.l d0,d2
  366.     move.l d1,d3
  367.     moveq.l #13,d4
  368.     moveq.l #7,d5
  369.     move.l db_GfxBase(a6),a6
  370.     move.b 28(a1),-(sp)
  371.     moveq.l #0,d0
  372.     jsr _LVOSetDrMd(a6)
  373.  
  374.     tst.l d6
  375.     bne.s notclear
  376.     move.l a2,a1
  377.     moveq.l #0,d7
  378.     move.b 25(a1),d7
  379.     ext.l d7
  380.     moveq.l #0,d0
  381.     move.b 26(a1),d0
  382.     jsr _LVOSetAPen(a6)
  383.  
  384. notclear:
  385.     move.l pdb_check(a5),a0
  386.     move.l a0,d0
  387.     tst.l d0
  388.     beq nodrawcheck
  389.     moveq.l #0,d0
  390.     moveq.l #2,d1
  391.     move.l a2,a1
  392.     jsr _LVOBltTemplate(a6)
  393. nodrawcheck:
  394.     tst.l d6
  395.     bne.s notclear2
  396.     move.l d7,d0
  397.     move.l a2,a1
  398.     jsr _LVOSetAPen(a6)
  399. notclear2:
  400.     moveq.l #0,d0
  401.     move.b (sp)+,d0
  402.     ext.l d0
  403.     move.l a2,a1
  404.     jsr _LVOSetDrMd(a6)
  405.     movem.l (sp)+,a2/a5/a6/d2-d7
  406.     rts
  407.  
  408. HiliteGad:
  409.     movem.l a2/a3/a6/d2-d4,-(sp)
  410.     moveq.l #0,d4
  411.     move.b 28(a1),d4
  412.     move.l a0,a2
  413.     move.l a1,a3
  414.     moveq.l #2,d0
  415.     move.l db_GfxBase(a6),a6
  416.     jsr _LVOSetDrMd(a6)
  417.     move.l a3,a1
  418.     moveq.l #0,d0
  419.     moveq.l #0,d1
  420.     move.w 4(a2),d0
  421.     move.w 6(a2),d1
  422.     move.l d0,d2
  423.     add.w 8(a2),d2
  424.     subq.w #1,d2
  425.     move.l d1,d3
  426.     add.w 10(a2),d3
  427.     subq.w #1,d3
  428.     jsr _LVORectFill(a6)
  429.     move.l a3,a1
  430.     move.l d4,d0
  431.     jsr _LVOSetDrMd(a6)
  432.     movem.l (sp)+,a2/a3/a6/d2-d4
  433.     rts
  434.  
  435.     end
  436.